<% server.Execute "/NoHACK1.asp" dim sql, rs, LoopFlag dim Time1, Y, M, D, Penal, sPenal, AddTime, N, UNDay, LockDay dim T, rs1, T1, Y1, M1, T2, Y2, M2, D2, serverid, servername dim dy, dm, dd dy= reqnum(Trim(Request("dy"))) dm= reqnum(Trim(Request("dm"))) dd= reqnum(Trim(Request("dd"))) Time1 = dy & "/" & dm & "/" & dd Y = DatePart( "yyyy",Time1) M = DatePart("M",Time1) D = DatePart("D",Time1) serverid = ReqNum(Request("serverid")) if serverid="" then serverid="1" '----找出對應GameServer if serverid=99 then servername= "其它" elseif serverid=98 then servername= "ALL SERVER" else sql = "select ServerID from TOP_NowServer where AutoID=" & serverid Set rs = GetRecordset( sql ) if not(rs.BOF and rs.EOF) then servername = rs("ServerID") else servername = "羽民(GF01)" end if end if rs.close If Time1 = "" Then Time1 = FormatDateTime(Now, vbShortDate) sql="select * from GM_Punish where DateDiff(d, '" & Time1 & "', AddTime)=0 and GameServer='" & servername & "' Order By AddTime Desc, GameServer, GameID" 'response.Write sql : response.End() Set rs = GetRecordset( sql ) %>
   
 
 
 
<%'顯示所有資料 LoopFlag = 1 While Not rs.EOF Penal = CInt(Rs("Penal")) select case Penal case -1 sPenal = "凍結帳號 7 天，強制刪除角色" case -2 sPenal = "先行凍結,請玩家致電" case -3 sPenal = "暫停玩家遊戲帳號之使用" case -4 sPenal = "角色禁言 1 天" case -5 sPenal = "帳號永久凍結" case -6 sPenal = "第一次警告" case -7 sPenal = "角色禁言 3 小時" case -8 sPenal = "凍結帳號 1 小時" case -9 sPenal = "會長、會員凍結 7 天並強制會長解散幫會" case -10 sPenal = "會長、會員帳號永久凍結並強制會長解散幫會" case -11 sPenal = "暫停玩家帳號之使用，請玩家傳真申告" case -12 sPenal = rs("KPenal") case -13 sPenal = "回收該身分證所屬 GF 帳號及遊戲帳號會員資格，並封鎖IP及封鎖該通訊鎖開通電話" case -14 sPenal= "累犯回收該身分證所屬 GF 帳號及遊戲帳號會員資格，並封鎖IP及封鎖該通訊鎖開通電話" case else IF rs("UNLock") = "Y" Then sPenal = "凍結 " & Penal & " 天" else AddTime=rs("AddTime") N = Now UNDay=DateDiff("d",AddTime,N) LockDay=RS("LockDay") IF UNDay > LockDay Then sPenal = "凍結 " & Penal & " 天" else sPenal = "凍結 " & Penal & " 天" end if End if end select %> <% rs.MoveNext LoopFlag = LoopFlag + 1 if loopflag mod 500 =0 then response.flush Wend rs.close set rs = nothing %>
　 【<%=Y%>年<%=M%>月<%=D%>日處罰名單】
<%=Cstr(LoopFlag)%>.
 玩家帳號： <%if len(rs("GameID"))>3 then Response.write Left(rs("GameID"),len(rs("GameID"))-3) & "***" else Response.write Left(rs("GameID"),1) & "***"%> 角色名稱： <%=rs("GameName")%> 伺服器名稱： <%if serverid =99 then response.write "其它" elseif serverid =98 then response.write "ALL SERVER" else response.write rs("GameServer") end if%>
　 停權原因： <%=rs("Cause")%>
　 處罰方式：<%=sPenal%>